Unit UnDmOnderzoekbeheer;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmOnderzoekBeheer = interface(IAppServerSOAP)
    ['{BFF93C65-627B-48F0-88F3-A5ED4A04C77E}']
  end;

  TDmOnderzoekBeheer = class(TSoapDataModule, IDmOnderzoekBeheer, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrOnderzoekBeheer: TADOQuery;
    PrvOnderzoekBeheer: TDataSetProvider;
    QrOnderzoekBeheerID: TAutoIncField;
    QrOnderzoekBeheerNAAM: TStringField;
    QrOnderzoekBeheerSTART_DATUM: TDateTimeField;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmOnderzoekBeheerCreateInstance(out obj: TObject);
begin
 obj := TDmOnderzoekBeheer.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmOnderzoekBeheer, TDmOnderzoekBeheerCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmOnderzoekBeheer));
end.
